Try this code (send doclink to the current doc):
Dim s As NotesSession
Dim db As NotesDatabase
Dim newsletter As NotesDocument, currentnote As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set s = New NotesSession
Set db = s.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set currentnote = uidoc.Document
Set newsletter = New Notesdocument(db)
Set rtitem = New NotesRichTextItem( newsletter, "Body")
newsletter.Form = "Memo"
newsletter.SendTo = "name@domain.com" 'Enter your email here
newsletter.Subject = "Documents you requested from " & db.Title
'Create the body of the mail memo with doclinks
Call rtitem.AppendDocLink ( currentnote, db.Title)
newsletter.Send(True)